;;; ob-skynet.el --- Org-babel functions for skynet  -*- lexical-binding: t; -*-

;; Copyright (C) 2024 lyt0628

;; Author: lyt0628
;; Maintainer: lyt0628
;; Created: 13 April 2024
;; Keywords: lua, skynet, org, babel
;; Homepage: https://github.com/lyt0628/ob-skynet
;; Version: 0.0.1

;;; License:

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Commentary:

;;; Requirements:

;;; Code:
(require 's)

(defmacro easyob-def (name  commnad  args)
  (list 'async-shell-command
	(s-join  " "  `(,commnad ,args))
	(concat "*" (symbol-name name) "*")
	(s-concat "*" (symbol-name name) "Error !!!*")))


(sequencep echo)

(easyob-def echo "echo" "666")

(macroexp--expand-all
 '(easyob-def "echo" "echo" "666"))

(defmacro easyob-define (msg)
  "MSG."
  (list
   'message msg))

(easyob-define "666")

(shell-command "echo 666")

(async-shell-command "echo 666")

(async-shell-command "dir")

(provide 'easyob)
;;; easyob.el ends here
